[@Login]
#IF
ISADMIN
#ACT
goto @GM
#ELSEACT
GOTO @½ִ
[@GM]
#CALL [\½\Ա.txt] @Ա

[@½ִ]
#CALL [\½\˵½.txt] @˵½
#CALL [\½\ֹ½.txt] @ֹ½
#CALL [\½\ɳ.txt] @ɳ
#CALL [\½\ʹ.txt] @
#CALL [\½\.txt] @
#CALL [\½\.txt] @
#CALL [\½\ͶƱ½.txt] @ͶƱ


;[@濪ʼ]
;#IF
;#SAY
;*˵*:(ע:ɱ˲PKֵᱬװ)\
;ٻʱ䶨1225ա:500RMB\
;ڵͼرʱΪ2050֣ռлԵͼлʤ(ע:ͼڲгԼлκ)\
;ۻ󣬿ͷֹᷢ棬ûʤлϵͷȡ\
;ܱУ˴λҡй˾\
;---------------------------------------------------------------\
;<лԵͼ/@move1>\

[@move]
#if
;RANDOM 1
HAVEGUILD
#act
map zhengba
#elseact
messagebox ûл,ûнʸ
SENDMSG 4 лԻУͼرʱΪ2050

[@ע]
#IF
LARGE M17 0
check [365] 1
#ACT
SENDMSG 7 [ʾ]ˡ<$STR(M17)>עԪѺġ<$STR(S23)>
BREAK
#ELSEACT
break

[@ʼҡ]
#IF
check [365] 1
#ACT
MOV D0 <$STR(I42)>
MOV D1 <$STR(I43)>
MOV D2 <$STR(I44)>
PLAYDICE 3 @Ĳ
BREAK
#SAY
XTTTTTTTTTTTTTTT[ӵеԪ<$GAMEGOLD>\
UU\
U񡡡񩧩񡡡񩧩񡡡񩧨Uׯ<$STR(A34)>\
U񡡡񩧩񡡡񩧩񡡡񩧨U\
U񡡡񩧩񡡡񩧩񡡡񩧨UׯұǮ<$STR(I19)>\
UU\
^TTTTTTTTTTTTTTTa\
#ELSEACT
break

[@Ĳ]
#IF
check [365] 0
#ACT
break

#IF
EQUAL A35 
#ACT
MOV I12 6
SENDMSG 4 [Ůׯ]Ѻ<$STR(I13)>עѺС<$STR(I14)>ע<$STR(I42)>㣺ӡ 
#ELSEACT
MOV I12 6
SENDMSG 4 [Ůׯ]Ѻ<$STR(I13)>עѺС<$STR(I14)>עׯҡ<$STR(A34)>ˡ<$STR(I42)><$STR(I43)><$STR(I44)><$STR(I45)>㡾<$STR(A35)> 

#IF
LARGE M17 25000000
#ACT
SET [365] 0
MESSAGEBOX ѺעȻǧ
break

#IF
LARGE I19 50000000
EQUAL A34 <$USERNAME>
#ACT
SET [365] 0
MESSAGEBOX ıǮȻǧ
break

#IF
SMALL I47 0
EQUAL A34 <$USERNAME>
#ACT
SET [365] 0
GAMEGOLD + <$STR(I19)>
BREAK
#SAY
ׯұǮ<$STR(I19)>Ѻ<$STR(I13)>עѺС<$STR(I14)>עο<$STR(A35)>\
עǮ\
ΪֹˢԪֻϣ˻رǮ<$STR(I19)>Ԫ\

#IF
SMALL I47 0
#ACT
SET [365] 0
GAMEGOLD + <$STR(M17)>
BREAK
#SAY
ׯұǮ<$STR(I19)>Ѻ<$STR(I13)>עѺС<$STR(I14)>עο<$STR(A35)>\
עǮ\
ΪֹˢԪֻϣ˻رǮ<$STR(M17)>Ԫ\

#IF
EQUAL A34 <$USERNAME>
check [365] 1
#ACT
CLOSE
SET [365] 0
MAPMOVE B012 8 6
DEC I46 <$STR(I15)>
GAMEGOLD + <$STR(I15)>
SENDMSG 4 [Ůׯ]ׯҡ<$STR(A34)>ˡ<$STR(I42)><$STR(I43)><$STR(I44)><$STR(I45)>㡾<$STR(A35)>ջԪ<$STR(I15)> 
BREAK

#IF
EQUAL A35 <$STR(S23)>
LARGE M17 0
check [365] 1
#ACT
CLOSE
SET [365] 0
MUL M17 2
DEC I46 <$STR(M17)>
GAMEGOLD + <$STR(M17)>
SENDMSG 6 ׯҡ<$STR(A34)>ˡ<$STR(I42)><$STR(I43)><$STR(I44)><$STR(I45)>㡾<$STR(A35)>Ӯˡ<$STR(M17)>Ԫ
BREAK
#ELSEACT
SET [365] 0
SENDMSG 6 ׯҡ<$STR(A34)>ˡ<$STR(I42)><$STR(I43)><$STR(I44)><$STR(I45)>㡾<$STR(A35)>ʧˡ<$STR(M17)>Ԫע
CLOSE
BREAK



[@ʼ]
#if
check [009] 1
#ACT
MOV S31
MOV D0 <$STR(I73)>
playdice 1 @DDcube_cds
BREAK
#SAY
ҡ........................
#ELSEACT
BREAK

[@DDcube_cds]
#IF
LARGE M26 <$STR(H75)>
#ACT
MessageBox ʾע<$STR(H75)>Ԫ
BREAK

#IF
LARGE M27 <$STR(H75)>
#ACT
MessageBox ʾע<$STR(H75)>Ԫ
BREAK

#IF
LARGE M28 <$STR(H75)>
#ACT
MessageBox ʾע<$STR(H75)>Ԫ
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\ʱ\ѹע˫.txt
EQUAL A55 <$STR(S28)>
LARGE M26 0
#ACT
MOV M3 <$STR(M26)>
MUL M26 2
MOV M1 <$STR(M26)>
MOV M2 <$STR(M26)>
MOV M0 100
DIV M0 <$STR(H71)>
DIV M1 <$STR(M0)>
DEC M2 <$STR(M1)>
DEC H74 <$STR(M2)>
GameGold + <$STR(M2)>
INC S31 Ѻˡ<$STR(M3)>Ԫġ<$STR(S28)>õԪ<$STR(M26)>ŵĽ
SENDMSG 5 ϲˡ<$STR(M3)><$STR(S28)>𹲼ơ<$STR(M26)>۳ѡ<$STR(M1)>õԪ<$STR(M2)>ţǰԪΪ<$GAMEGOLD>ţ
MOV M26 0

#IF
CHECKNAMELIST ..\QuestDiary\ʱ\ѹעС.txt
EQUAL A56 <$STR(S29)>
LARGE M27 0
#ACT
MOV M3 <$STR(M27)>
MUL M27 3
MOV M1 <$STR(M27)>
MOV M2 <$STR(M27)>
MOV M0 100
DIV M0 <$STR(H71)>
DIV M1 <$STR(M0)>
DEC M2 <$STR(M1)>
DEC H74 <$STR(M2)>
GameGold + <$STR(M2)>
INC S31 Ѻˡ<$STR(M3)>Ԫġ<$STR(S29)>õԪ<$STR(M27)>ŵĽ
SENDMSG 5 ϲˡ<$STR(M3)><$STR(S29)>𹲼ơ<$STR(M27)>۳ѡ<$STR(M1)>õԪ<$STR(M2)>ţǰԪΪ<$GAMEGOLD>ţ
MOV M27 0

#IF
CHECKNAMELIST ..\QuestDiary\ʱ\ѹע.txt
EQUAL A57 <$STR(S30)>
LARGE M28 0
#ACT
MOV M3 <$STR(M28)>
MUL M28 6
MOV M1 <$STR(M28)>
MOV M2 <$STR(M28)>
MOV M0 100
DIV M0 <$STR(H71)>
DIV M1 <$STR(M0)>
DEC M2 <$STR(M1)>
DEC H74 <$STR(M2)>
GameGold + <$STR(M2)>
INC S31 Ѻˡ<$STR(M3)>Ԫġ<$STR(S30)>õԪ<$STR(M28)>ŵĽ
SENDMSG 5 ϲˡ<$STR(M3)><$STR(S30)>𹲼ơ<$STR(M28)>۳ѡ<$STR(M1)>õԪ<$STR(M2)>ţǰԪΪ<$GAMEGOLD>ţ
MOV M28 0

#IF
EQUAL S31
#ACT
DelayCall 100 @
#ELSEACT
DelayCall 100 @
SENDMSG 0 ضĳϲҡ%sе˴󽱣<$STR(S31)> 249 151


#IF
LARGE M26 0
CHECKNAMELIST ..\QuestDiary\ʱ\ѹע˫.txt
#ACT
SENDMSG 7 ֿ<$STR(I73)>㡸<$STR(A55)>ܿϧѺˡ<$STR(M26)>ע<$STR(S28)>Ѻˣ

#IF
LARGE M27 0
CHECKNAMELIST ..\QuestDiary\ʱ\ѹעС.txt
#ACT
SENDMSG 7 ֿ<$STR(I73)>㡸<$STR(A56)>ܿϧѺˡ<$STR(M27)>ע<$STR(S29)>Ѻˣ

#IF
LARGE M28 0
CHECKNAMELIST ..\QuestDiary\ʱ\ѹע.txt
#ACT
SENDMSG 7 ֿ<$STR(I73)>㡸<$STR(A57)>ܿϧѺˡ<$STR(M28)>ע<$STR(S30)>Ѻˣ

#IF
CHECKLEVELEX > 0
#ACT
SET [008] 0
SET [009] 0
DELNAMELIST ..\QuestDiary\ʱ\ѹע˫.txt
DELNAMELIST ..\QuestDiary\ʱ\ѹעС.txt
DELNAMELIST ..\QuestDiary\ʱ\ѹע.txt
BREAK

[@]
#ACT
MOV M26 0
MOV M27 0
MOV M28 0
MOV S27
MOV S28
MOV S29
MOV S30
MOV S31
BREAK

